home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / Plist / TestP.e < prev    next >
Encoding:
Text File  |  1995-04-05  |  1.3 KB  |  45 lines
  1.  
  2. MODULE 'exec/lists','exec/execbase','*Plist'
  3.  
  4. PROC main()
  5.     DEF l:PTR TO lh
  6.     DEF d:PTR TO lh
  7.     DEF b,str[80]:STRING
  8.     DEF e:PTR TO execbase
  9.     DEF v
  10.     e:=execbase
  11.     WriteF('Init list...(with ''initList()'')\n')
  12.     l:=initList()
  13.     d:=initList()
  14.     Write(stdout,'Enter Number of Nodes =',STRLEN)
  15.     ReadStr(stdout,str)
  16.     v:=Val(str,NIL)
  17.     FOR b:=0 TO v-1
  18.         StringF(str,'Node :\d',b)
  19.         addNode(l,str,0)
  20.         WriteF('Add node with ''addNode()'' name:\s\n',str)
  21.     ENDFOR
  22.     b:=countNodes(l)
  23.     WriteF('Total Nodes:\d with ''countNodes()''\n',b)
  24.     b:=getAdrNode(l,2)
  25.     WriteF('Address Node number 2:\h with ''getAdrNode()''\n',b)
  26.     Write(stdout,'Now ''writeFList()'' (press return)\n',STRLEN)
  27.     ReadStr(stdout,str)
  28.     writeFList(l)
  29.     Write(stdout,'Now ''copyList()'' copy execbase.portlist (press return)\n',STRLEN)
  30.     ReadStr(stdout,str)
  31.     Forbid()
  32.     copyList(e.portlist,d)
  33.     Permit()
  34.     Write(stdout,'Now ''writeFList()'' the result list.(press return)\n',STRLEN)
  35.     ReadStr(stdout,str)
  36.     writeFList(d)
  37.     WriteF('Now clean it.. with ''cleanList()''\n')
  38.     d:=cleanList(d,FALSE,0,LIST_CLEAN)
  39.     WriteF('''writeFList()'' if list is empty with ''emptyList()''\n')
  40.     IF emptyList(d) THEN writeFList(d)
  41.     cleanList(d,FALSE,0,LIST_REMOVE)
  42.     cleanList(l,FALSE,0,LIST_REMOVE)
  43. ENDPROC
  44.  
  45.